home *** CD-ROM | disk | FTP | other *** search
/ Word Perfect Main Street: Paper Planes / WordPerfect Main Street - Paper Planes.iso / mac / Gloss / 00021_Script_21 < prev    next >
Text File  |  1994-05-12  |  757b  |  26 lines
  1. on exitFrame
  2.   global ReadGlossary
  3.   if ReadGlossary then
  4.     set ReadGlossary = FALSE
  5.     set fileName = the Pathname & "Glossary:Gloss.txt"
  6.     set theFile = FileIO(mNew, "read", fileName)
  7.     set lineNum = 1
  8.     set done = FALSE
  9.     repeat while not done
  10.       set aLine = theFile(mReadLine)
  11.       if aLine = EMPTY then
  12.         set done = TRUE
  13.       else
  14.         set aWord = item 1 of aLine
  15.         put (aWord & RETURN) into line lineNum of field "Glossary"
  16.         set theLabel = item 2 of aLine
  17.         set theVisual = item 3 of aLIne
  18.         put (theLabel & "," & theVisual) into line lineNum of field "GlossaryData"
  19.         set lineNum = lineNum + 1
  20.       end if
  21.     end repeat
  22.     theFile(mDispose)
  23.   end if
  24.   cursor -1
  25. end
  26.